home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / rbbs / fmsheadr.zip / FMSHEADR.MRG < prev    next >
Text File  |  1992-02-11  |  9KB  |  150 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBSSUB4.BAS to produce RBBSSUB4.NEW,
  3. * then rename RBBSSUB4.BAS to RBBSSUB4.OLD, and rename
  4. * RBBSSUB4.NEW to RBBSSUB4.BAS before recompiling.
  5. *
  6. *     +--------------------------------------------------------------+
  7. *     |    ------------[ Created 06-06-1991 05:50:00 ]------------   |
  8. *     |                             by                               |
  9. *     |                       Ron Mullins, SysOp                     |
  10. *     |                          PC-TUG BBS                          |
  11. *     |             Matewan, WV  (304) 426-8451  14.4 HST            |
  12. *     +--------------------------------------------------------------+
  13. *
  14. * REPLACING old line(s) by new
  15. 58200 ' $SUBTITLE: 'FMS - subroutine to search the upload management system'
  16. ' $PAGE
  17. '
  18. '  NAME    -- FMS
  19. '
  20. '  INPUTS  -- PARAMETER                      MEANING
  21. '             DirToSearch$          RBBS-PC "DIR" CATEGORY TO LOOK
  22. '                                     FOR
  23. '             SearchString$          STRING TO SEARCH FOR
  24. '             SearchDate$            DATE TO SEARCH FOR
  25. '             ZCategoryName$()
  26. '             ZCategoryCode$()
  27. '             ZCategoryDesc$()
  28. '             CatFound
  29. '             ZNumCategories
  30. '             ZEmpasizeOn$
  31. '             ZEmphasizeOff$
  32. '             ZWasGR
  33. '             ZFG1$
  34. '             ZFG2$
  35. '             ZFG3$
  36. '             ZFG4$
  37. '
  38. '  OUTPUTS -- ProcessedInFMS
  39. '             DnldFlag
  40. '
  41. '  PURPOSE -- To search the file management system and display a full
  42. '             graphic/color file banner containing BBS name, current  
  43. '             Sub-board, category searched, catetory description, and
  44. '             search string
  45. '
  46.       SUB FMS (DirToSearch$,SearchString$,SearchDate$, _
  47.                ProcessedInFMS,ZCategoryName$(1),ZCategoryCode$(1), _
  48.                ZCategoryDesc$(1),DnldFlag,CatFound,AbortIndex) STATIC
  49.       DnldFlag = 0
  50.       CALL SearchArray (DirToSearch$,ZCategoryName$(),ZNumCategories,CatFound)
  51.       ProcessedInFMS = ProcessedInFMS OR (CatFound > 0)
  52. * ------[ first line different ]------
  53.       ZSpaces$ = "                                          "+ _      'RM060691
  54.                  "                                         ": _       'RM060691
  55.       ZSpaceLen% = 68 - LEN(DirToSearch$): _                          'RM060691
  56.       ZSpaceLen% = ZSpaceLen% - LEN(ZCategoryDesc$(CatFound)): _      'BH051891
  57.       IF ZWasGR > 0 THEN _                                            'RM060691
  58.          ZLineLen$ = "══════════════════════════════════════"+ _      'RM060691
  59.                      "═════════════════════════════════════": _       'RM060691
  60.          ELSE _                                                       'RM060691
  61.          ZLineLen$ = "--------------------------------------"+ _      'RM060691
  62.                      "-------------------------------------"          'RM060691
  63.       ZLineLen% = 52 - LEN(ZRBBSName$+ZConfName$): _                  'RM060691
  64.       IF ZWasGR = 0 GOTO 58201                                        'RM060691
  65.       IF ProcessedInFMS THEN _
  66.       ZSubParm = 5: _
  67.       IF ZWasGR > 0 THEN _                                            'RM060691
  68.          ZFG1$ = ZDR1$: _                                             'RM060691
  69.          ZFG2$ = ZDR2$: _                                             'RM060691
  70.          ZFG3$ = ZDR3$: _                                             'RM060691
  71.          ZFG4$ = ZDR4$                                                'RM060691
  72.       IF ZEmphasizeOn$ <> "" THEN _                                   'RM060691
  73.          GOSUB 58202: _                                               'RM060691
  74.          ELSE _                                                       'RM060691
  75.          GOSUB 58203                                                  'RM060691
  76.       CALL QuickTPut("",1): _                          'Bama Connx 02/24/90
  77.       CALL QuickTPut(ZFG3$+"╔═ "+ZFG4$+ZRBBSName$+ZFG3$+" ═════ "+ _  'RM060691
  78.                      ZFG4$+"File Area: "+ZConfName$+" "+ZFG3$+ _      'RM060691
  79.                      LEFT$(ZLineLen$, ZLineLen%)+"╗", 1): _           'RM060691
  80.       CALL QuickTPut(ZFG3$+"║  "+ZFG3$+DIRTOSEARCH$+" : "+ _          'RM060691
  81.                      ZFG2$+ZCategoryDesc$(CatFound)+HDR$+ _           'RM060691
  82.                      ZEmphasizeOn$+SrchDir$+ZEmphasizeOff$+ZFG3$+ _   'RM060691
  83.                      LEFT$(ZSpaces$, ZSpaceLen%)+"║", 1): _           'RM060691
  84.       CALL QuickTPut(ZFG3$+"╠════════════╦════════╦════════╦═════"+ _ 'RM060691
  85.                      "═════════════════════════════════════╣", 1): _  'RM060691
  86.       CALL QuickTPut(ZFG3$+"║ "+ZFG1$+"File Name"+ZFG3$+ _            'RM060691
  87.                      "  ║  "+ZFG2$+"Size"+ZFG3$+"  ║  ", 0): _        'RM060691
  88.       CAll QuickTPut(ZFG3$+"Date"+ZFG3$+ _                            'RM060691
  89.                      "  ║ "+ZFG4$+"Description"+ZFG3$+ _              'RM060691
  90.                      "                              ║", 1): _         'RM060691
  91.       CALL QuickTPut(ZFG3$+"╚════════════╩════════╩════════╩═════"+ _ 'RM060691
  92.                      "═════════════════════════════════════╝", 1): _  'RM060691
  93.       Cat$ = ZCategoryCode$(CatFound): _
  94.       CALL DispUpDir (Cat$,SearchString$,SearchDate$,DnldFlag,AbortIndex)
  95.       EXIT SUB
  96. 58201 IF ProcessedInFMS THEN _
  97.       ZSubParm = 5: _
  98.       IF ZEmphasizeOn$ <> "" THEN _                                   'RM060691
  99.          GOSUB 58202: _                                               'RM060691
  100.          ELSE _                                                       'RM060691
  101.          GOSUB 58203                                                  'RM060691
  102.       CALL QuickTPut("",1): _                          'Bama Connx 02/24/90
  103.       CALL QuickTPut("+- "+ZRBBSName$+" ----- File Area: "+ _         'RM060691
  104.                      ZConfName$+" "+ _                                'RM060691
  105.                      LEFT$(ZLineLen$, ZLineLen%)+"+", 1): _           'RM060691
  106.       CALL QuickTPut("|  "+DIRTOSEARCH$+" : "+ _
  107.                      ZCategoryDesc$(CatFound)+HDR$+ _                 'RM060691
  108.                      ZEmphasizeOn$+SrchDir$+ZEmphasizeOff$+ _         'RM060691
  109.                      LEFT$(ZSpaces$, ZSpaceLen%)+"|", 1): _           'RM060691
  110.       CALL QuickTPut("|------------+--------+--------+-------"+ _     'RM060691
  111.                      "-----------------------------------|", 1): _    'RM060691
  112.       CALL QuickTPut("| File Name  |  Size  |  ", 0): _               'RM060691
  113.       CAll QuickTPut("Date  | Description"+ _                         'RM060691
  114.                       "                              |", 1): _        'RM060691
  115.       CALL QuickTPut("+------------+--------+-----------------"+ _    'RM060691
  116.                      "+---------------------------------+", 1): _     'RM060691
  117.       Cat$ = ZCategoryCode$(CatFound): _                            
  118.       CALL DispUpDir (Cat$,SearchString$,SearchDate$,DnldFlag,AbortIndex)
  119.       EXIT SUB
  120. 58202 HDR$ = ""                                                       'BH051691
  121.       ZOutTxt$ = SearchDate$
  122.       IF LEN(ZOutTxt$) > 0 THEN _
  123.          ZOutTxt$ = MID$(ZOutTxt$,3) + LEFT$(ZOutTxt$,2)                 
  124.       SrchDir$ = SearchString$ + ZOutTxt$                             'RM060691
  125.       IF SrchDir$ <> "" THEN _                                        'BH051291
  126.          IF ZWasGR = 2 THEN _                                         'RM060691
  127.             HDR$ = ZFG4$+" - Scanning for "+ZFG3$+"════ ": _         'RM060691
  128.                    ZSpaceLen% = ZSpaceLen% - LEN(HDR$+SrchDir$)+ _    'RM060691
  129.                    20: _                                              'RM060691
  130.             ELSE _                                                    'RM060691
  131.             HDR$ = " - Scanning for ----> ": _                        'RM060691
  132.                    ZSpaceLen% = ZSpaceLen% - LEN(HDR$+SrchDir$)       'RM060691
  133.       RETURN
  134. 58203 HDR$ = ""                                                       'BH051691
  135.       ZOutTxt$ = SearchDate$
  136.       IF LEN(ZOutTxt$) > 0 THEN _
  137.          ZOutTxt$ = MID$(ZOutTxt$,3) + LEFT$(ZOutTxt$,2)
  138.       SrchDir$ = SearchString$ + ZOutTxt$
  139.       IF SrchDir$ <> "" THEN _                                        'BH051291
  140.          IF ZWasGR = 2 THEN _                                         'RM060691
  141.             HDR$ = ZFG4$+" - Scanning for "+ZFG3$+ _                  'RM060691
  142.                    "════ "+ZFG2$: _                                  'RM060691
  143.                     ZSpaceLen% = ZSpaceLen% - LEN(HDR$+SrchDir$)+ _   'RM060691
  144.                     30: _                                             'RM060691
  145.             ELSE _                                                    'RM060691
  146.             HDR$ = " - Scanning for ----> ": _                        'RM060691
  147.                    ZSpaceLen% = ZSpaceLen% - LEN(HDR$+SrchDir$)       'RM060691
  148.       RETURN
  149.       END SUB
  150.